home *** CD-ROM | disk | FTP | other *** search
- ; NewIcons Installer Script
- ; $Ver: 38.3 (8-Jan-95)
- ; Written by Philip A. Vedovatti
- ; for Program Author Nicola Salmoria,
- ; with many thanks for his fine programming work.
-
- (set @default-dest "SYS:C")
-
- (set #bad-kick
- (cat "\n\nSpiacente! Devi avere il Workbench 2.0"
- "o superiore per usare questo pacchetto."))
-
- (set #hello-message
- (cat "\nGrazie per aver provato NewIcons, la rivoluzionaria"
- "\nInterfaccia Grafica per l'Utente per il sistema"
- "\nAmiga. Per favore leggi la documentazione per"
- "\nottenere il massimo da questo pacchetto. Nulla sarà"
- "\ncancellato dal tuo sistema con questa installazione."
- "\nLe tue vecchie icone del WB saranno ancora lì, anche"
- "\nse non sembrerà così sul tuo schermo. Se non capisci"
- "\nqualche parte della installazione, clicca sul gadget"
- "\n\"Aiuto\" che ntroverai durante l'installazione per"
- "\naltre informazioni."
- "\n\nCLICCA PER CONTINUARE"))
-
- (set #install-which
- (cat "\nQuali parti del sistema NewIcons vorresti"
- "\ninstallare sul tuo disco rigido?\n"))
-
- (set #install-library
- (cat "\n\nInstallo NewIcon.library in LIBS:. Ciò è"
- "\nnecessario per l'installazione delle icone."))
-
- (set #install-library-help
- (cat "\n\nQuesta libreria è necessaria per usare NewIcons"
- "\ned è necessaria per l'installazione delle icone."))
-
- (set #install-icons
- (cat "\n\nInstallo i files NewIcons nella tua directory C:"
- "\ne le immagini NewIcon nella tua partizione SYS:."
- "\n\nLe tue vecchie icone NON saranno rimosse."
- "\n\nNOTA: assicurati di avere il comando standard Amiga"
- "\n'list' nel tuo path di comandi prima di continuare."))
-
- (set #install-icons-help
- (cat "\n\nLe nuove immagini delle icone saranno"
- "\ninserite nei tooltypes dei files .info"
- "\nesistenti. Le linee di tooltype saranno"
- "\ninvisibili una volta che NewIcons é in"
- "\nazione, sicchè l'operazione sarà del"
- "\ntutto trasparente per l'utente."))
-
- (set #install-newicons
- (cat "\n\nCopio i file NewIcons principali in C:"
- "\ne la newicon.library in LIBS:"))
-
- (set #install-newicons-help
- (cat "\n\nQuesta parte installa NewIcons, Injectbrush"
- "\ne PatchOpenWB nella tua directory C:."
- "\nInoltre,la newicon.library verrà copiata"
- "\nnella tua directory LIBS:."))
-
- (set #tools-dest
- (cat "\nIn quale cassetto vuoi installare le"
- "\nutility di manipolazione NewIcons?\n"))
-
- (set #startup-newicon
- (cat "\n\nAggiungo una linea alla tua S:User-Startup"
- "\nper lanciare NewIcons ogni volta che il"
- "\nsistema viene avviato."))
-
- (set #install-deficons
- (cat "\n\nInstallo il demone DefIcons nella tua"
- "\ndirectory C:, e copio le icone di default"
- "\nnella tua directory ENVARC:Sys."))
-
- (set #install-deficons-help
- (cat "\nQuesta parte installa il programma DefIcons"
- "\ne copia le necessarie def_icons nella tua"
- "\ndirectory ENVARC:."))
-
- (set #move-olddefs-dir
- (cat "L'Installer muoverà le tue vecchie icone di"
- "\ndefault in un altro posto per sicurezza."
- "\nDove vuoi che creo una directory per"
- "\nimmagazzinarle?"))
-
- (set #move-olddefs-help
- (cat "\nQuesta parte copia le tue vecchie icone di"
- "\ndefault in un posto sicuro invece di"
- "\nsovrascriverle. Se tu vorrai rimuovere"
- "\nDeficons, le avrai subito disponibili."))
-
- (set #move-olddefs
- (cat "Muovo le tue vecchie icone predefinite in \n"
- destdir))
-
- (set #install-envarc
- (cat "\nCopio le icone di default e il brainfile in"
- "\nENVARC: affinchè DefIcons le possa usare.\n"))
-
- (set #install-envarc-help
- (cat "\n\nQuesta parte installa le icone che DefIcons"
- "\nuserà per mostrare i files che non hanno"
- "\nicone già associate ad essi."))
-
- (set #startup-deficons
- (cat "\n\nAggiungi una linea alla tua S:user-Startup"
- "\nper lanciare DefIcons ogni volta che il"
- "\nsistema viene avviato."))
-
- (set #powb-message
- (cat "\n\nSe hai installato NewIcons, devi aggiungere"
- "\nuna linea alla tua S:Startup-Sequence:\n\n"
- "C:PatchOpenWB\n"
- "\nper correggere un bug del Sistema Operativo 3.x!"
- "\n\nAssicurati di porre la linea dopo Setpatch"
- "\ne prima di IPrefs."))
-
- (set #exit-message
- (cat "Per favore riavvia il sistema per attivare\n"
- "del tutto i sistemi NewIcons e/o Deficons."
- "\n\n\nDivertiti usando NewIcons!"))
-
- (set #docs-dest
- (cat "Dove vuoi che la documentazione Guida di"
- "\nNewIcons venga installata?"))
-
- ; ------------------------------
- ; Check Kickstart Version
- ; ------------------------------
-
- (if (< (getversion "LIBS:version.library") (* 37 65536))
- (abort #bad-kick)
- )
-
- (message #hello-message)
-
- ; ------------------------------
- ; What should I install?
- ; ------------------------------
-
- (set InstallOpt
- (askoptions (prompt #install-which)
- (help @askoptions-help)
- (choices "NewIcons" "DefIcons" "Documentazione")
- )
- )
-
- ; ------------------------------
- ; Install NewIcon.library
- ; ------------------------------
-
- (copylib
- (source "/libs/newicon.library")
- (dest "libs:")
- (prompt #install-library)
- (help #install-library-help)
- (confirm)
- )
-
- ;-------------------------------------------------------
- ;Install icon images, NewIcons, and icon support files
- ;-------------------------------------------------------
-
-
- (if (BITAND InstallOpt 1)
-
- ((message #install-icons)
-
- (execute "Install_Icons"
- (help #install-icons-help)
- )
-
- (copylib
- (prompt #install-newicons)
- (source "/C/NewIcons")
- (dest "c:")
- (help #install-newicons-help)
- )
-
- (copylib
- (source "/C/InjectBrush")
- (dest "c:")
- )
-
- (copylib
- (source "/C/PatchOpenWB")
- (dest "c:")
- )
-
-
- (set destdir
- (askdir
- (prompt #tools-dest)
- (help @askdir-help)
- (default "Sys:Utilities")
- )
- )
-
- (copyfiles
- (source "/Utilities/CopyNewIcon")
- (dest destdir)
- (infos)
- )
-
- (copyfiles
- (source "/Utilities/CreateDefaultIcon")
- (dest destdir)
- (infos)
- )
-
- (copyfiles
- (source "/Utilities/KillNewIcon")
- (dest destdir)
- (infos)
- )
-
- (startup "NewIcons"
- (prompt #startup-newicon)
- (command "NewIcons")
- (help @startup-help)
- )
- )
- )
-
- ;------------------------------
- ;Install Deficons
- ;------------------------------
-
- (if (BITAND InstallOpt 2)
-
-
- ((set destdir
- (askdir
- (prompt #move-olddefs-dir)
- (help #move-olddefs-help)
- (default "Sys:Storage")
- )
- )
-
- (set destdir
- (tackon destdir "Old_Def_icons")
- )
-
- (makedir destdir
- )
-
- (copyfiles
- (prompt #move-olddefs)
- (source "Envarc:sys")
- (dest destdir)
- (pattern "def#?")
- (help #move-olddefs-help)
- )
-
- (copylib
- (prompt #install-deficons)
- (source "/C/DefIcons")
- (dest "C:")
- (help #install-deficons-help)
- (confirm)
- )
-
- (copyfiles
- (prompt #install-envarc)
- (source "/envarc")
- (dest "ENVARC:")
- (all)
- (infos)
- (help #install-envarc-help)
- )
-
- (startup "DefIcons"
- (prompt #startup-deficons)
- (command "DefIcons")
- (help @startup-help)
- )
- )
- )
-
-
- ;------------------------------
- ;Install Documentation
- ;------------------------------
-
- (if (BITAND InstallOpt 4)
-
- ((set destdir
- (askdir
- (prompt #docs-dest)
- (help @askdir-help)
- (default "Help:")
- )
- )
- (copyfiles
- (source "/NewIcons.guide")
- (dest destdir)
- (infos)
- )
- )
- )
-
- (message #powb-message)
-
- (exit #exit-message)